#!perl -T

use strict;
use warnings;
use Test::More tests => 4;;
use Test::BoostUnit qw(:ALL);

like(makeInfo ("Bad Error"), qr|<Info file="None" line="1"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Info>\s*|ms, "makeInfo - Info Message");
like(makeInfo ("Bad Error", "InThisFile.cpp"), qr|<Info file="InThisFile.cpp" line="1"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Info>\s*|ms, "makeInfo - Info Message with file");
like(makeInfo ("Bad Error", "InThisFile.cpp", "654"), qr|<Info file="InThisFile.cpp" line="654"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Info>\s*|ms, "makeInfo - Info Message with file and line");
like(makeInfo (qq/--info "Bad Error" --line 654/), qr|<Info file="None" line="654"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Info>\s*|ms, "makeInfo - Info Message with just a line");

